ArcPadScripting
AddXYValues Example

Description

Populates a point layer's X and Y attributes with each point feature's geographic X and Y coordinates.

VBScript Code

Copy Code
Sub AddXYValues(p_pRS, p_XFieldName, p_YFieldName)
      Dim pFields
      Set pFields = p_pRS.Fields
      p_pRS.MoveFirst
      Do While Not p_pRS.EOF
              pFields(p_XFieldName).Value = pFields.Shape.X
            pFields(p_YFieldName).Value = pFields.Shape.Y
            p_pRS.Update
            p_pRS.MoveNext
      Loop
End Sub
 
'++ here's an example of calling AddXYValues to populate the LATITUDE and LONGITUDE fields of layer 1
Dim pRS
Map.Layers(1).Editable = True
Set pRS = Map.Layers(1).Records
Call AddXYValues(pRS, "LONGITUDE", "LATITUDE")
Set pRS = Nothing
Map.Layers(1).Editable = False

 

JScript Code

Copy Code
function AddXYValues(p_pRS, p_XFieldName, p_YFieldName)
{
      var pFields = p_pRS.Fields;
      p_pRS.MoveFirst();
      while (!p_pRS.EOF)
      {
              pFields(p_XFieldName).Value = pFields.Shape.X;
            pFields(p_YFieldName).Value = pFields.Shape.Y;
            p_pRS.Update();
            p_pRS.MoveNext();
      }
}
 
// here's an example of calling AddXYValues to populate the LATITUDE and LONGITUDE fields of layer 1
Map.Layers(1).Editable = true;
var pRS = Map.Layers(1).Records;
AddXYValues(pRS, "LONGITUDE", "LATITUDE");
pRS = null;
Map.Layers(1).Editable = false;